unit VectorTypes;

interface

type
  TVector3f = record
    X, Y, Z: Single;
  end;
  TVector3i = record
    X, Y, Z: Integer;
  end;
  TVector3b = record
    X, Y, Z: Byte;
  end;
  TVector2i = record
    X, Y: Integer;
  end;
  TVector2b = record
    X, Y: Byte;
  end;
  TVector4f = record
    X, Y, Z, W: Single;
  end;

function CreateVector3f(x, y, z: single): TVector3f;
function CreateVector3i(x, y, z: integer): TVector3i;

implementation

function CreateVector3f(x, y, z: single): TVector3f;
begin
   result.x := x;
   result.y := y;
   result.z := z;
end;

function CreateVector3i(x, y, z: integer): TVector3i;
begin
   result.x := x;
   result.y := y;
   result.z := z;
end;

end.
